10 REM VOCABULARY EXERCISE DESIGNED BY         BILL CUMBERLAND FEB 1989
15 POKE53280,0:POKE53281,0:POKE646,7:POKE53272,23
20 V$="3":REM MODULE IDENTIFICATION CODE
25 REM THIS MODULE WAS PREPARED BY ....
30 REM BILL CUMBERLAND - 1989:02:18
100 PRINT"[147]                                        [146]";
101 PRINT"                                        [146]";
102 PRINT"                [214][207][195][193][194] "V$"              [146]";
104 PRINT"                                           [146]";
105 PRINT"                                        [146]";
106 PRINT"                                        [146]";
107 PRINT"                                        [146]"
108 GOSUB9053:GOSUB9300:GOSUB660
109 PRINT"[147]                                        [146]";
110 PRINT"                                        [146]";
111 PRINT"     [212]HIS MODULE WAS PREPARED BY....    [146]";
112 PRINT"              [194]ILL [195]UMBERLAND           [146]";
113 PRINT"                 16:10:91               [146]";
114 PRINT"                                        [146]":GOSUB9052
115 PRINT"[147]   [212]HE FOLLOWING WORDS ARE EXAMINED:"
120 PRINT"CONSPICUOUS,SIDLE,MAUDLIN,EMBARGO,      TOOTHSOME,INNATE,";
125 PRINT"LUMINARY,SYLVAN,       ALTERCATION,PEERLESS,RELICT,ADIPOSE, ";
130 PRINT"   QUALM,TRANSIENT,SOUBRETTE,EQUINE,       PERTINENT,";
135 PRINT"DOLOROUS,PALLID,REPUDIATE"
140 PRINT"          [201]NSTRUCTIONS?  Y/N ":GOSUB9051:GOSUB9300
145 GETR$:IFR$<>"Y"ANDR$<>"N"THEN145
150 IFR$="N"THEN2000
200 PRINT"[147]             [201]NSTRUCTIONS
210 [153]"  (null)HIS IS ONE OF A SERIES OF MODULES      DESIGNED TO HELP YOU ";
220 [153]"BUILD A GOOD       WORKING VOCABULARY.
230 FORT=1TO2000:NEXT:PRINT"[154]      [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.[155]"
235 GETR$:IFR$<>CHR$(32)THEN235
240 PRINT"[147]  [210]EAD THE UNDERLINED WORD AND CHOOSE     ONE OF THE FIVE WORDS ";
250 PRINT"WHICH HAS A       MEANING SIMILAR TO THE UNDERLINED       WORD.
260 [153]"  VALXAMPLE:    MIDDLE
270 PRINT"              [183][183][183][183][183][183]
280 [153]"           1. WARFARE
290 PRINT"           2. MARCHED
300 [153]"           3. LAWFUL
310 PRINT"           4. CENTRE
320 [153]"           5. RANCH
330 PRINT"  [211]INCE 'CENTRE' IS THE CORRECT CHOICE,   YOU WOULD ENTER '4'";
340 PRINT" AS YOUR RESPONSE    AND THEN PRESS [210][197][212][213][210][206][146]
350 [129]T[178]1[164]2500:[130]:[153]"CONT      (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.LIST"
360 [161]R$:[139]R$[179][177][199](32)[167]360
370 [153]"LOAD  (null)RESS 1 TO REVIEW INSTRUCTIONS.
380 PRINT"  [208]RESS 2 TO START THE EXERCISE.
390 [161]R$:[139]R$[179][177]"1"[175]R$[179][177]"2"[167]390
400 [139]R$[178]"1"[167]200
410 [153]"LOAD  LEFT$ERE ARE TWENTY QUESTIONS FOR YOU.
420 GOSUB9052:PRINT"[147]"
430 W=1
440 GOTO2000
499 :
500 REM TERMINATION OF MODULE
505 IF C>18 THEN 535
510 IF C>16 THEN 570
515 IF C>14 THEN 595
520 PRINT"[147]  [217]OU SEEM TO HAVE PROBLEMS!
525 [153]"  (null)EE YOUR TEACHER AT ONCE!"
530 [141]9059:[137]10
535 [153]"LOAD   VALXCELLENT WORK!":[141]9052
540 [153]"   STR$O YOU WISH TO REVIEW THE DEFINITIONS   OF THESE WORDS?  Y/N
545 GETR$:IFR$<>"Y"ANDR$<>"N"THEN545
550 IFR$="Y"THEN5000
555 IFR$="N"THENPRINT"[147]  [212]RY MODULE [214][207][195][193][194] 4 WHEN YOU HAVE        THE TIME.
560 [141]9052
565 [153]"  PEEKYE FOR NOW.":[141]9055:[137]10
570 [153]"LOAD   CHR$OOD WORK!":[141]9052:[153]"   (null)OU MISSED"[197](W$)"WORDS"
575 [141]9055
580 [153]"   (null)ET'S REVIEW THE DEFINITIONS OF         THESE WORDS?
585 GOSUB9053:GOTO5000
590 GOSUB9055
595 PRINT"[147]  [217]OU ARE NOT DOING VERY WELL!":GOSUB9054
600 PRINT"  [201] WANT YOU TO REVIEW THE MEANING OF     THESE WORDS NOW."
605 GOSUB9053:PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
610 [161]R$:[139]R$[179][177][199](32)[167]610
615 [137]5000
654 :
655 [141]9054
660 [153]"      (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
665 GETR$:IFR$<>CHR$(32)THEN665
670 RETURN
1999 :
2000 PRINT"[147]":POKE53280,9:POKE53281,15:POKE646,0
2010 PRINT" 1       CONSPICUOUS
2015 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
2020 PRINT"      1. IMPORTANT
2025 [153]"      2. ATTRACTING ATTENTION
2030 PRINT"      3. COURAGEOUS
2035 [153]"      4. SCHOLARLY
2040 PRINT"      5. AWAKE
2045 [141]9000
2050 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2100
2060 [141]9200
2065 [153]"  (null)O, THE CORRECT CHOICE IS...
2070 PRINT"         ATTRACTING ATTENTION [146].":W=W+1
2075 GOSUB9052
2080 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2099 :
2100 PRINT"[147]":POKE53280,8:POKE53281,15:POKE646,0
2110 PRINT" 2       SIDLE
2115 [153]"         USRUSRUSRUSRUSR
2120 PRINT"      1. TALK PERSUASIVELY
2125 [153]"      2. WALK SIDEWAYS
2130 PRINT"      3. CONSPIRE AGAINST
2135 [153]"      4. WASTE TIME
2140 PRINT"      5. SING
2145 [141]9000
2150 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2200
2155 [141]9200
2160 [153]"  (null)O, THE CORRECT CHOICE IS ...
2165 PRINT"         WALK SIDEWAYS [146].":W=W+1
2170 GOSUB9052
2175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2199 :
2200 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
2210 PRINT" 3       MAUDLIN
2215 [153]"         USRUSRUSRUSRUSRUSRUSR
2220 PRINT"      1. LISTLESS
2225 [153]"      2. ANGRY
2230 PRINT"      3. RELUCTANT
2235 [153]"      4. SENTIMENTAL
2240 PRINT"      5. MESSING ABOUT
2245 [141]9000
2250 [139]R$[178]"4"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2300
2255 [141]9200
2260 [153]"  (null)O, THE CORRECT CHOICE IS ...
2265 PRINT"         SENTIMENTAL [146]":W=W+1
2270 GOSUB9052
2275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2299 :
2300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
2310 PRINT" 4       EMBARGO
2315 [153]"         USRUSRUSRUSRUSRUSRUSR
2320 PRINT"      1. ADVERTISING CAMPAIGN
2325 [153]"      2. HOSTILE ACTION
2330 PRINT"      3. SUSPENSION OF TRADE
2335 [153]"      4. POLITICAL DISAGREEMENT
2340 PRINT"      5. CONTENTS OF A TRUCK
2345 [141]9000
2350 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2400
2355 [141]9200
2360 [153]"  (null)O, THE CORRECT CHOICE IS ...
2365 PRINT"         SUSPENSION OF TRADE [146]":W=W+1
2370 GOSUB9052
2375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2399 :
2400 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
2410 PRINT" 5       TOOTHSOME
2415 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
2420 PRINT"      1. JAGGED
2425 [153]"      2. HARMONIOUS
2430 PRINT"      3. AGGRESSIVE
2435 [153]"      4. CHEWING
2440 PRINT"      5. DELICIOUS
2445 [141]9000
2450 [139]R$[178]"5"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2500
2455 [141]9200
2460 [153]"  (null)O, THE CORRECT CHOICE IS ...
2465 PRINT"         DELICIOUS [146]":W=W+1
2470 GOSUB9052
2475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2499 :
2500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
2510 PRINT" 6.      INNATE
2515 [153]"         USRUSRUSRUSRUSRUSR
2520 PRINT"      1. EMPTY
2525 [153]"      2. INBORN
2530 PRINT"      3. IDLE
2535 [153]"      4. DEVIOUS
2540 PRINT"      5. RESIDENT
2545 [141]9000
2550 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2600
2555 [141]9200
2560 [153]"  (null)O, THE CORRECT CHOICE IS ...
2565 PRINT"         INBORN OR NATURAL [146]":W=W+1
2570 GOSUB9052
2575 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2599 :
2600 PRINT"[147]":POKE53280,2:POKE53281,15:POKE646,0
2610 PRINT" 7.      LUMINARY
2615 [153]"         USRUSRUSRUSRUSRUSRUSRUSR
2620 PRINT"      1. MADMAN
2625 [153]"      2. FAMOUS PERSON
2630 PRINT"      3. FESTIVAL
2635 [153]"      4. ABSURD PROPOSITION
2640 PRINT"      5. SEARCHLIGHT
2645 [141]9000
2650 [139]R$[178]"2"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2700
2655 [141]9200
2660 [153]"  (null)O, THE CORRECT CHOICE IS ...
2665 PRINT"         FAMOUS PERSON [146]":W=W+1
2670 GOSUB9052
2675 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2699 :
2700 PRINT"[147]":POKE53280,11:POKE53281,15:POKE646,0
2710 PRINT" 8.      SYLVAN
2715 [153]"         USRUSRUSRUSRUSRUSR
2720 PRINT"          1. WOODED
2725 [153]"          2. SILVERY
2730 PRINT"          3. VALUABLE
2735 [153]"          4. SMOOTH
2740 PRINT"          5. SILLY PERSON
2745 [141]9000
2750 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2800
2755 [141]9200
2760 [153]"  (null)O, THE CORRECT CHOICE IS ...
2765 PRINT"         WOODED [146]":W=W+1
2770 GOSUB9052
2775 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2799 :
2800 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
2810 PRINT" 9.      ALTERCATION
2815 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
2820 PRINT"      1. AMMENDMENT
2825 [153]"      2. DIFFICULT CHOICE
2830 PRINT"      3. CANCELLATION
2835 [153]"      4. ELECTRICAL GENERATOR
2840 PRINT"      5. DISPUTE
2845 [141]9000
2850 [139]R$[178]"5"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2900
2855 [141]9200
2860 [153]"  (null)O, THE CORRECT CHOICE IS ...
2865 PRINT"         DISPUTE [146]":W=W+1
2870 GOSUB9052
2875 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2899 :
2900 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
2910 PRINT" 10.     PEERLESS
2915 [153]"         USRUSRUSRUSRUSRUSRUSRUSR
2920 PRINT"      1. INDIFFERENT
2925 [153]"      2. SHORTSIGHTED
2930 PRINT"      3. WEALTHY
2935 [153]"      4. UNEQUALLED
2940 PRINT"      5. SIGHTLESS
2945 [141]9000
2950 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3000
2955 [141]9200
2960 [153]"  (null)O, THE CORRECT CHOICE IS ...
2965 PRINT"         UNEQUALLED [146]":W=W+1
2970 GOSUB9052
2975 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2999 :
3000 PRINT"[147]":POKE53280,12:POKE53281,15:POKE646,0
3010 PRINT" 11.     RELICT
3015 [153]"         USRUSRUSRUSRUSRUSR
3020 PRINT"      1. HERMIT
3025 [153]"      2. WIDOW
3030 PRINT"      3. ZEALOT
3035 [153]"      4. ABSTAINER
3040 PRINT"      5. BURIED TREASURE
3045 [141]9000
3050 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3100
3055 [141]9200
3060 [153]"  (null)O, THE CORRECT CHOICE IS ...
3065 PRINT"         WIDOW [146]":W=W+1
3070 GOSUB9052
3075 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053 :GOSUB9060
3099 :
3100 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
3110 PRINT" 12      ADIPOSE
3115 [153]"         USRUSRUSRUSRUSRUSRUSR
3120 PRINT"      1. FATTY
3125 [153]"      2. COARSE
3130 PRINT"      3. STICKY
3135 [153]"      4. CORRUPT
3140 PRINT"      5. OFF BALANCE
3145 [141]9000
3150 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3200
3155 [141]9200
3160 [153]"  (null)O, THE CORRECT CHOICE IS ...
3165 PRINT"         FATTY [146]":W=W+1
3170 GOSUB9052
3175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3199 :
3200 PRINT"[147]":POKE53280,4:POKE53281,15:POKE646,0
3210 PRINT" 13.     QUALM
3215 [153]"         USRUSRUSRUSRUSR
3220 PRINT"      1. SUDDEN DOUBT
3225 [153]"      2. CURIOSITY
3230 PRINT"      3. TRIVIAL COMPLAINT
3235 [153]"      4. DILEMMA
3240 PRINT"      5. CALM WATER
3245 [141]9000
3250 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3300
3255 [141]9200
3260 [153]"  (null)O, THE CORRECT CHOICE IS ...
3265 PRINT"         SUDDEN DOUBT [146]":W=W+1
3270 GOSUB9052
3275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3299 :
3300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
3310 PRINT" 14.     TRANSIENT
3315 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
3320 PRINT"      1. ADAPTABLE
3325 [153]"      2. SMALL TRANSFORMER
3330 PRINT"      3. OUTSIDE THE LAW
3335 [153]"      4. EASILY SEEN THROUGH
3340 PRINT"      5. QUICKLY PASSING
3345 [141]9000
3350 [139]R$[178]"5"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3400
3355 [141]9200
3360 [153]"  (null)O, THE CORRECT CHOICE IS ...
3365 PRINT"         QUICKLY PASSING [146]":W=W+1
3370 GOSUB9052
3375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3399 :
3400 PRINT"[147]":POKE53280,13:POKE53281,15:POKE646,0
3410 PRINT" 15.     SOUBRETTE
3415 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
3420 PRINT"      1. A DRUNKEN LADY
3425 [153]"      2. CARICATURE
3430 PRINT"      3. ICE CREAM
3435 [153]"      4. COMIC ACTRESS
3440 PRINT"      5. NICKNAME
3445 [141]9000
3450 [139]R$[178]"4"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3500
3455 [141]9200
3460 [153]"  (null)O, THE CORRECT CHOICE IS ...
3465 PRINT"         COMIC ACTRESS [146]":W=W+1
3470 GOSUB9052
3475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3480 PRINT"  [198]ROM [204]ATIN 'PROPAGARE'":GOSUB9060
3500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
3510 PRINT" 16      PHOTOTROPISM
3515 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
3520 PRINT"      1. SCOUNDREL
3525 [153]"      2. MOVEMENT TOWARD OR FROM LIGHT"
3530 [153]"      3. PLANT PHOTOGRAPHY
3535 PRINT"      4. TROPICAL ENVIRONMENT
3540 [153]"      5. WORSHIP OF TROPICAL FLOWERS
3545 GOSUB9000
3550 IFR$="2"THEN GOSUB9100:PRINT"         [195]ORRECT!":GOSUB9052:GOTO3600
3555 GOSUB9200
3560 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3565 [153]"         MOVEMENT TOWARD OR FROM LIGHT WAIT"
3570 [141]9052:W[178]W[170]1
3575 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
3585 [141]9060
3600 [153]"LOAD":[151]53280,13:[151]53281,15:[151]646,0
3610 [153]" 17      WINDROW
3615 PRINT"         [183][183][183][183][183][183][183]
3620 [153]"      1. SOFT BREEZE
3625 PRINT"      2. RIPPLED WATER
3630 [153]"      3. A FINE SPRAY
3635 PRINT"      4. GROVE OF FRUIT TREES
3640 [153]"      5. ROW OF HAY
3645 GOSUB9000
3650 IFR$="5"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3700
3655 GOSUB9200
3660 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3665 [153]"         ROW OF HAY WAIT":W[178]W[170]1
3670 [141]9052
3675 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
3700 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
3710 [153]" 18      TUBER
3715 PRINT"         [183][183][183][183][183]
3720 [153]"      1. PART OF A GREENHOUSE
3725 PRINT"      2. GARDEN TOOL
3730 [153]"      3. RIPE FRUIT
3735 PRINT"      4. ROOT
3740 [153]"      5. PART OF WATERING SYSTEM
3745 GOSUB9000
3750 IFR$="4"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3800
3755 GOSUB9200
3760 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3765 [153]"         ROOT WAIT":W[178]W[170]1
3770 [141]9052
3775 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
3800 [153]"LOAD":[151]53280,10:[151]53281,15:[151]646,0
3810 [153]" 19      TOPIARY
3815 PRINT"         [183][183][183][183][183][183][183]
3817 [153]" (null)HE ART OF ..
3820 PRINT"      1. DESIGNING GARDENS
3825 [153]"      2. TRIMMING SHRUBS
3830 PRINT"      3. SURVEYING GARDENS
3835 [153]"      4. GROWING MINIATURE TREES
3840 PRINT"      5. GROWING HERBS INDOORS
3845 [141]9000
3850 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3900
3855 [141]9200
3860 [153]"  (null)O, THE CORRECT CHOICE IS ...
3865 PRINT"         TRIMMING SHRUBS [146]":W=W+1
3870 GOSUB9052
3875 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3900 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
3910 PRINT" 20      FALLOW
3915 [153]"         USRUSRUSRUSRUSRUSR
3917 PRINT" [208]ERTAINING TO:
3920 [153]"      1. AN UNSEEDED FIELD
3925 PRINT"      2. BARREN AREA
3930 [153]"      3. GULLY
3935 PRINT"      4. COASTAL MARSH
3940 [153]"      5. WOOD LOT
3955 GOSUB9000
3960 IFR$="1"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO4500
3965 GOSUB9200
3970 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3975 [153]"         AN UNSEEDED FIELD WAIT":W[178]W[170]1:[141]9052:[141]9060
4500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,1:C[178]20[171]W
4505 [153]"  (null)OU HAVE COMPLETED THIS MODULE AND
4510 PRINT"  GOT";C;"WORDS CORRECT.":GOSUB9055
4515 GOTO500
4999 :
5000 PRINT"[147]":POKE53280,12:POKE53281,12:POKE646,0
5005 PRINT"              [196][197][198][201][206][201][212][201][207][206][211] [146]
5100 [153]" 1.  (null)(null)(null)LENLEFT$
5110 PRINT"     [199]ROUND COVERING THAT IS MADE UP OF      LEAVES, STRAW, ";
5120 PRINT"AND THE LIKE TO          PROTECT PLANTS.
5130 [153]" * (null)IDDLE VALNGLISH 'MOLSH' (SOFT)
5140 GOSUB9070
5200 PRINT"[147] 2.  [193][197][210][193][212][201][207][206]
5210 [153]"     (null)ENTILATION; EXPOSURE TO AIR            CIRCULATION; AS, ";
5220 [153]"THE AERATION OF        SOIL BY EARTHWORMS.
5230 PRINT" * [199]REEK 'AER' (AIR) "
5240 GOSUB9070
5300 PRINT"[147] 3.  [208][207][204][204][201][206][193][212][197]
5310 [153]"     (null)O FERTILIZE, AS WHEN BEES OR WIND      CARRY POLLEN ";
5320 [153]"CONSISTING OF MALE SEX     CELLS TO THE FEMALE PARTS OF A
5330 PRINT"     FLOWER.
5340 [153]" * (null)ATIN 'POLLEN' (POWDER)"
5350 [141]9070
5400 [153]"LOAD 4.  CHR$ATN(null)VALPEEK(null)
5410 PRINT"     [211]UMMERHOUSE; ANY FREESTANDING,          ROOFED STRUCTURE ";
5420 PRINT"THAT IS OPEN ON        ALL SIDES.
5430 [153]" * (null)ATIN FROM 'GAZE'
5440 GOSUB9070
5500 PRINT"[147] 5.  [198][204][207][210][193]
5510 [153]"     ATNLL THE PLANT LIFE OF A PARTICULAR      PLACE AND TIME."
5520 [153]" * (null)ATIN 'ASCLORA' ((null)OMAN GODDESS OF         FLOWERS.
5530 GOSUB9070
5600 PRINT"[147] 6.  [212][210][197][204][204][201][211]
5610 [153]"     (null)TRUCTURE MADE OF THIN PIECES OF        WOOD OR METAL TO ";
5620 [153]"SUPPORT CLIMBING       PLANTS.
5630 PRINT" * [204]ATIN 'TRI' (THREE) 'LICIUM' (THREAD)
5640 [141]9070
5700 [153]"LOAD 7.  (null)VAL(null)STR$(null)RIGHT$(null)
5710 PRINT"     [193] SLENDER, SPIRALLING STEM THAT         COILS AROUND ";
5720 PRINT"AN OBJECT.
5730 [153]"   * ASCRENCH 'TENDRON' (TENDER SHOOT)
5740 GOSUB9070
5800 PRINT"[147] 8.  [194][207][206][211][193][201]
5810 [153]"     (null)ECHNIQUE OF GROWING DWARF TREES        OR SHRUBS IN ";
5820 [153]"SMALL POTS."
5830 [153]"   * MID$APANESE (POTTED PLANT)
5840 GOSUB9070
5900 PRINT"[147] 9.  [200][193][210][210][207][215]
5905 [153]"     (null)O LEVEL PLOWED LAND WITH A FARM        IMPLEMENT THAT ";
5910 [153]"HAS MANY SPIKELIKE        DISKS."
5915 [153]"   * (null)IDDLE VALNGLISH 'HARWE'
5920 GOSUB9070
5950 PRINT"[147] 10. [193][210][193][194][204][197]
5955 [153]"     ATN DESCRIPTION OF LAND FIT FOR           PLOWING AND FOR ";
5960 [153]"GROWING CROPS."
5965 [153]"   * (null)ATIN 'ARARE' (TO PLOW)
5970 GOSUB9070
6000 PRINT"[147] 11. [194][213][210][199][197][207][206]
6010 [153]"     (null)O SPROUT; DEVELOP BUDS, SHOOTS,        LEAVES; AS, ";
6020 [153]"(null)ILDFLOWERS BURGEON         IN THE SPRING.
6030 PRINT"     [193]LSO, TO FLOURISH; AS, A PERSON'S       BURGEONING BUSINESS."
6040 PRINT"   * [198]RENCH 'BURJON' (BUD)
6050 [141]9070
6100 [153]"LOAD 12. (null)(null)LENLEN(null)(null)VAL(null)(null)
6110 PRINT"     [202]UICY; AS, A SUCCULENT STRAWBERRY.      [193]LSO, OF PLANTS ";
6120 PRINT"HAVING THICK,           FLESHY LEAVES.
6130 [153]"   * (null)ATIN 'SUCUS' (JUICE, SAP)
6140 GOSUB9070
6200 PRINT"[147] 13. [208][197][210][197][206][206][201][193][204]
6210 [153]"     (null)ASTING, ENDURING; AS, (null)ERENNIAL        PLANTS LIVE FOR ";
6220 [153]"MORE THAN TWO YEARS.
6230 PRINT"   * [204]ATIN 'PERENIS'
6240 [141]9070
6300 [153]"LOAD 14. LEFT$(null)(null)(null)(null)
6310 PRINT"     [208]ARTIALLY DECOMPOSED PLANT AND          ANIMAL MATTER ";
6320 PRINT"THAT MAKES THE            SOIL RICH.
6330 [153]"   * (null)ATIN (SOIL, EARTH)
6340 GOSUB9070
6400 PRINT"[147] 15. [208][210][207][208][193][199][193][212][197]
6410 [153]"     (null)O REPRODUCE; CAUSE A PLANT OR          ANIMAL TO BREED OR ";
6420 [153]"MULTPLY.
6430 PRINT"   * [204]ATIN 'PROPAGARE'
6440 [141]9070
6500 [153]"LOAD 16. (null)LEFT$(null)(null)(null)(null)(null)(null)(null)RIGHT$(null)(null)
6510 PRINT"     [205]OVEMENT OF A PLANT TOWARDS OR          AWAY FROM LIGHT ";
6520 PRINT"SOURCES.
6530 [153]"   * CHR$REEK 'PHOTO' (LIGHT) AND               'TROPOS'";
6540 [153]" (TURNING)"
6550 [141]9070
6600 [153]"LOAD 17. (null)RIGHT$(null)STR$(null)(null)(null)
6610 PRINT"     [210]OW OF HAY RAKED TOGETHER TO DRY        BEFORE BEING STACKED.
6620 [153]"     ATNNY SIMILAR ROW; AS, DRY LEAVES         BLOWN IN WINDROWS.
6630 PRINT"   * [197]NGLISH 'WIND' AND 'ROWS'
6640 [141]9070
6700 [153]"LOAD 18. (null)(null)PEEKVAL(null)
6710 PRINT"     [211]HORT, THICK, ROUNDED ROOT              PRODUCING BUDS ";
6720 PRINT"THAT WILL LATER          DEVELOP INTO NEW PLANTS.
6730 [153]"   * (null)ATIN 'TUBER' (SWELLING)
6740 GOSUB9070
6800 PRINT"[147] 19. [212][207][208][201][193][210][217]
6810 [153]"     (null)HE ART OF TRIMMING SHRUBS, TREES       AND LAWNS INTO ";
6820 [153]"ORNAMENTAL SHAPES.
6830 PRINT"   * [204]ATIN 'TOPIA' (ORNAMENTAL               GARDENING.
6840 [141]9070
6900 [153]"LOAD 20. ASCATN(null)(null)(null)(null)
6910 PRINT"     [208]ERTAINING TO A FIELD LEFT UNSEEDED - AFTER BEING ";
6920 PRINT"PLOWED AND HARROWED.
6930 [153]"     (null)O REGAIN FERTILITY.
6940 PRINT"   * [207]LD [197]NGLISH 'FEALIG' (PLOWED LAND)
6950 [141]9070
8500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,7
8505 [139][197](W$)[179]3[167][137]8565
8515 [153]"              (null)ATN(null)(null)RIGHT$(null)CHR$ WAITSYS
8520 PRINT"   [201]F YOU MISSED MORE THAN TWO WORDS       YOU SHOULD REPEAT THE ";
8525 PRINT"MODULE."
8530 GOSUB 9052
8535 PRINT"         [217][207][213][160][200][193][214][197][160][193][160][195][200][207][201][195][197]...[158]
8540 [141] 9052
8545 [153]"    (null)RESS '1' TO REPEAT MODULE 3
8550 PRINT"    [208]RESS '5' TO GO TO THE DISK MENU
8555 [161]R$:[139]R$[179][177]"1"[175]R$[179][177]"5"[167]8555
8560 [139]R$[178]"1"[167]2000
8565 [153]"LOAD RETURNING TO THE DISK MENU
8570 LOAD"MENU",8
8575 RUN
8580 END
8595 GOTO10
8999 :
9000 INPUT"    ";R$
9005 IFR$<>"1"ANDR$<>"2"ANDR$<>"3"ANDR$<>"4"ANDR$<>"5"THEN 9000
9010 RETURN
9049 :
9050 REM TIME SELECTORS
9051 FORT=1TO1000:NEXT:RETURN
9052 FORT=1TO2000:NEXT:RETURN
9053 FORT=1TO3000:NEXT:RETURN
9054 FORT=1TO4000:NEXT:RETURN
9055 FORT=1TO5000:NEXT:RETURN
9059 FORT=1TO9000:NEXT:RETURN
9060 GOSUB 9052
9061 PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
9062 [161]R$:[139]R$[179][177][199](32)[167]9062
9063 [142]
9070 [141] 9052
9071 [153]"   (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
9072 GETR$:IFR$<>CHR$(32)THEN9072
9073 RETURN
9099 :
9100 REM 'YES' SOUND
9105 S=54272:FORS=STOS+28:POKEE,0:NEXT
9110 POKE54296,15:POKE54277,42:POKE54278,250
9115 POKE54276,23:POKE54273,23:POKE54272,191
9120 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
9125 POKE54296,0:RETURN
9199 :
9200 REM 'NO' SOUND
9205 S=54272:FORS=STOS+28:POKEE,0:NEXT
9210 POKE54296,15:POKE54277,18:POKE54278,242
9215 POKE54276,33:POKE54273,4:POKE54272,48
9220 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
9225 FORE=STOS+28:POKEE,0:NEXT:RETURN
9299 :
9300 REM 'BLIP' SOUND
9305 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,14:POKES+9,240:POKES+24,15
9310 HF=S+1:LF=S
9315 POKES+4,17:POKEHF,INT(RND(0)*50):POKELF,250:POKES+4,16:RETURN
10000 REM  IN MEMORIUM * RAD JANJIC *              R.I.P.  87:11:26
10001 REM  FOR CORRECTION OR IMPROVEMENTCONTACT BILL CUMBERLAND (416)278-7687